home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / list 4 (error) (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  654 b   |  19 lines
  1. 10 rem ********************************
  2. 11 rem *         e  r  r  o  r        *
  3. 12 rem ********************************
  4. 13 rem * ergaenzung zu simon's basic  *
  5. 14 rem * format: D{$7e}or                *
  6. 15 rem * gibt DRstatus aus          *
  7. 16 rem * > beispiel: D{$7e}or            *
  8. 17 rem *   ergebnis: 00, ok,00,00     *
  9. 18 rem ********************************
  10. 19 k=0:print" e r r o r [146]  ?checksum ";
  11. 20 fori=$bfbb to $bfe2:read j:poke i,j:k=k+j:next
  12. 21 data32,115,,201,176,240,3,76,138,136
  13. 22 data169,8,133,186,32,180,255,169,111
  14. 23 data133,185,32,150,255,32,165,255,32
  15. 24 data210,255,201,13,208,246,32,171
  16. 25 data255,76,116,145
  17. 26 poke$87be,186:poke$87bf,191
  18. 27 ifk=5527thenprint"ok":Dg:print"error"
  19.